From: Jason Rumney Date: Sat, 18 Apr 2009 13:50:08 +0000 (+0000) Subject: (list-colors-duplicates): w32-default-color-map is a function. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~794 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6c2677b1653dfb2de0c611816f2490ba254af1b0;p=emacs.git (list-colors-duplicates): w32-default-color-map is a function. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 060112b639b..13773f171a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-04-18 Jason Rumney + + * facemenu.el (list-colors-duplicates): w32-default-color-map is + a function. + 2009-04-18 ARISAWA Akihiro * epa-file.el (epa-file-decode-and-insert): Use diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 51a71ad7d8e..a9f4f729edd 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -537,8 +537,8 @@ a list of colors that the current display can handle." (l list)) (while (cdr l) (if (and (facemenu-color-equal (car (car l)) (car (car (cdr l)))) - (not (if (boundp 'w32-default-color-map) - (not (assoc (car (car l)) w32-default-color-map))))) + (not (if (fboundp 'w32-default-color-map) + (not (assoc (car (car l)) (w32-default-color-map)))))) (progn (setcdr (car l) (cons (car (car (cdr l))) (cdr (car l)))) (setcdr l (cdr (cdr l))))